Submarine Cable Map

Route Map

Photo from Wikipedia Commons

No cord or cable can draw so forcibly, or bind so fast, as love can do with a single thread…
— Robert Burton

Route map of the world’s major operating and planned submarine cable systems and landing stations.

Ingest

the routes

cables <- read.csv("archetypes/fusion-cables/fusion-cables.csv", header = TRUE, stringsAsFactors = FALSE, as.is=T)
cables

The landing points

landing_points = read.csv("archetypes/fusion-cables/fusion-landing-points.csv", header = TRUE, stringsAsFactors = FALSE, as.is=T)
landing_points

Base map

natural earth

# PLOT NATURAL EARTH BORDERS
ne_world <- ne_countries(scale = "small", returnclass = "sf")
# class(ne_world)

Route map

with geom_path

theme_opts <- theme(
      legend.position="none",
      plot.background = element_blank(),
      panel.grid.major = element_blank(),
      panel.grid.minor = element_blank(),
      panel.background=element_rect(fill="white", colour="white"),
      panel.border = element_blank()
)

v1 <- ggplot(data = ne_world) +
  geom_path( data = cables, aes(x=longitude, y=latitude, group=factor(id)), color=cables$color, size=0.5) +
  geom_sf(fill="#f0f0f0", color="#888888", stroke=0.5) +
  geom_point( data = landing_points, aes(x=lon, y=lat ), shape=21, size=1, fill="#ffffff", color="#111111", stroke=0.5 ) +
  scale_color_tron() +
  scale_fill_tron() +
  ylim(-53,80) + # removes Antarctica
  theme_bw() +
  labs(x="",
       y="",
       title = "Routes Map", 
       subtitle="Submarine Cable Map") +
  theme_opts
  
girafe(ggobj = v1, width_svg = 1280/72, height_svg = 720/72,
       options = list(opts_sizing(rescale = TRUE, width = 1.0))
)

References

citations for narrative and data sources

Narrative and Data Source: Telegeography, https://github.com/telegeography/www.submarinecablemap.com